www.gusucode.com > 良精ASP微博管理系统 V1.0 > 良精ASP微博管理系统 V1.0\code\admin\src_manage.asp
<!--#include file="../Include/CheckLogin.asp"-->
<!--#include file="../Include/liangconn.asp"-->
<!--#include file="../Include/Function.asp"-->
<%
sub showpage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit)
dim n, i,strTemp,strUrl
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
strTemp= "<table align='center' class='font_3'><tr><td>"
if ShowTotal=true then
strTemp=strTemp & "共 <b>" & totalnumber & "</b> " & strUnit & " "
end if
strUrl=JoinChar(sfilename)
if CurrentPage<2 then
strTemp=strTemp & "首页 上一页 "
else
strTemp=strTemp & "<a href='" & strUrl & "page=1'>首页</a> "
strTemp=strTemp & "<a href='" & strUrl & "page=" & (CurrentPage-1) & "'>上一页</a> "
end if
if n-currentpage<1 then
strTemp=strTemp & "下一页 尾页"
else
strTemp=strTemp & "<a href='" & strUrl & "page=" & (CurrentPage+1) & "'>下一页</a> "
strTemp=strTemp & "<a href='" & strUrl & "page=" & n & "'>尾页</a>"
end if
strTemp=strTemp & " 页次：<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>页 "
strTemp=strTemp & " <b>" & maxperpage & "</b>" & strUnit & "/页"
if ShowAllPages=True then
strTemp=strTemp & " 转到：<select class='input' name='page' size='1' onchange=""javascript:window.location='" & strUrl & "page=" & "'+this.options[this.selectedIndex].value;"">"
for i = 1 to n
strTemp=strTemp & "<option value='" & i & "'"
if cint(CurrentPage)=cint(i) then strTemp=strTemp & " selected "
strTemp=strTemp & ">第" & i & "页</option>"
next
strTemp=strTemp & "</select>"
end if
strTemp=strTemp & "</td></tr></table>"
response.write strTemp
end sub
function JoinChar(strUrl) '分页附属函数
if strUrl="" then
JoinChar=""
exit function
end if
if InStr(strUrl,"?")<len(strUrl) then
if InStr(strUrl,"?")>1 then
if InStr(strUrl,"&")<len(strUrl) then
JoinChar=strUrl & "&"
else
JoinChar=strUrl
end if
else
JoinChar=strUrl & "?"
end if
else
JoinChar=strUrl
end if
end function
action = request("action")
Src_ID = Request("Src_ID")
havving = Request("havving")
dim action,id
dim totalpage,maxperpage,totalrecords,i,currentpage
response.expires = 0
currentpage = request("page")
if currentpage = "" then
currentpage=1
end if
maxperpage = 25
totalrecords = 0
totalpage = 1
Set Rs = Server.CreateObject("ADODB.Recordset")
if action = "del" then
Sql = "Delete From Liangjing_Source Where Src_ID="&Src_ID
Conn.execute(Sql)
Response.Redirect("Src_Manage.asp")
end if
%>
<script language="javascript">
<!--
function frm_onsubmit(){
return true;
}
function isDel(id){
if(confirm("您确定要删除此消息吗？")){
location.href="Src_Manage.asp?Action=del&Src_ID="+id+"&link_type2=<%=link_type2%>";
}
}
-->
</script>
<link href="images/Admin.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<form name="frmselect" action="Src_Manage.asp" method="post">
<td height="26" bgcolor="#EAEAEA"> <strong>类别:
<%
Response.Write(Conn.execute("Select Child_Name From Liangjing_SrcChild Where Child_ID="&Session("_Src_ChildID"))(0))
%>
</strong>
标题：
<input type="text" name="havving" value="<%=havving%>" size="45">
<input type="submit" name="Submit" value="搜索">
<input type="button" name="button" value="全部" onClick="javascript:location.href='Src_Manage.asp';"> </td>
</form>
</tr>
</table>
<br>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#EAEAEA">
<td height="25" align="center">编号</td>
<td align="center">发布人</td>
<td align="center">资源标题</td>
<td align="center">是否发布</td>
<td align="center">添加时间</td>
<td align="center">操作</td>
</tr>
<%
Set Rs = Server.CreateObject("Adodb.recordset")
sql = "SELECT *,Liangjing_User.User_ID,Liangjing_User.User_CoolName From Liangjing_Source Inner join Liangjing_User on Liangjing_Source.Src_UserID=Liangjing_User.User_ID Where 1=1 and Src_ChildID="&Session("_Src_ChildID")
if havving <> "" then
sql = sql & " and Src_Title like '%" & havving & "%'"
end if
sql = sql & " order by Src_ID Desc"
Rs.open Sql,conn,1,2
if not Rs.eof then
rs.pagesize = maxperpage
rs.absolutepage = currentpage
totalpage = rs.pagecount
totalrecords = rs.recordcount
end if
j = 0
While not rs.eof and j < maxperpage
j = j + 1
%>
<tr<%= Tr_MouseOver %> bgcolor="#FFFFFF">
<td height="22" align="center"><%=Rs("Src_ID")%></td>
<td align="center"><a href="../MyRoom.asp?User_ID=<%=Rs("User_ID")%>" target="_blank"><%= Server.HTMLEncode(Rs("User_CoolName")) %></a></td>
<td align="left"> <a href="../ShowMsg.asp?Src_ID=<%=Rs("Src_ID")%>" target="_blank" title="点击预览"><%=rs("Src_Title")%></a></td>
<td align="center">
<%
if Rs("Src_IsOver") = false then
Response.write("发布")
else
Response.write("<font color=#ff0000>不发布</font>")
end if
%>
</td>
<td align="center"> <%= FormatDateTime(rs("Src_AddDate"),2) %></td>
<td align="center">
<a href="../SrcShow.asp?Src_ID=<%=Rs("Src_ID")%>" target="_blank">查看</a>
<a href="javascript:isDel(<%=Rs("Src_ID")%>);">删除</a>
</td>
</tr>
<%
Rs.MoveNext
Wend
%>
</table>
<br>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td width="100%" height="23" bgcolor="#EAEAEA" align="right">
<% Call showpage("Src_Manage.asp?annual="&annual&"&monthly="&monthly&"&class1="&class1&"&special="&special,totalrecords,maxperpage,true,true,"篇文章") %>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="22"> </td>
</tr>
</table>
<%
Set Rs = Nothing
Set Conn = Nothing
%>